home *** CD-ROM | disk | FTP | other *** search
/ Hidden Truth / Hidden Truth.iso / amiga / aweb30local / aweb_multiscan128 < prev    next >
Text File  |  1997-04-26  |  1KB  |  38 lines

  1. c:requestchoice >env:rcm128 "Welcome To The Hidden Truth" "Screenmode: *nMultiscan Productivity *n640x480 *n  128 Colours *n *nSelect from below whether you would like to *nopen your screen in colour or greyscale" " Colour | Greyscale | Cancel "
  2.  
  3. if $rcm128 eq 1
  4.  
  5.   failat 100
  6.   stack >NIL: 20000
  7.   assign >NIL: devs: Truth:amiga/devs
  8.   assign >NIL: LIBS: Truth:AMIGA/Classes ADD
  9.   assign >NIL: sys: Truth:AMIGA ADD
  10.   assign >NIL: libs: Truth:amiga/libs add
  11.   assign >NIL: fonts: Truth:amiga/fonts add
  12.   assign >NIL: env: Truth:amiga/aweb30local/env-multiscan add
  13.   Assign >NIL: JPEGTMP: "ram:"
  14.   C:AddDataTypes >NIL: REFRESH QUIET
  15.   assign >NIL: devs: sys:devs
  16.   aweb >NIL: config aweb_multiscan128
  17.  
  18. endif
  19.  
  20. if $rcm128 eq 2
  21.  
  22.   failat 100
  23.   stack >NIL: 20000
  24.   assign >NIL: devs: Truth:amiga/devs
  25.   assign >NIL: LIBS: Truth:AMIGA/Classes ADD
  26.   assign >NIL: sys: Truth:AMIGA ADD
  27.   assign >NIL: libs: Truth:amiga/libs add
  28.   assign >NIL: fonts: Truth:amiga/fonts add
  29.   assign >NIL: env: Truth:amiga/aweb30local/env-multiscan add
  30.   Assign >NIL: JPEGTMP: "ram:"
  31.   C:AddDataTypes >NIL: REFRESH QUIET
  32.   assign >NIL: devs: sys:devs
  33.   aweb >NIL: config aweb_multiscan128g
  34.  
  35. else
  36.   endcli 
  37. endif
  38.